home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / cenvi29.arj / ISDAY_2.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-08  |  744b  |  14 lines
  1. @echo OFF
  2. REM *************************************************************************
  3. REM *** IsDay_2.cmd - This is like IsDay_1.cmd (Set ErrorLevel 1 if it is ***
  4. REM *** ver.1         requested day of the week, and ErrorLeve 0 if not), ***
  5. REM ***               but accomplishes this in only one quick call to     ***
  6. REM ***               CENVI.  Unlike IsDay_1.cmd, this does no error      ***
  7. REM ***               checking and provides no help.                      ***
  8. REM *************************************************************************
  9.  
  10. cenvi  day="%1"  day[3]=0    return( strstr(strupr(ctime(time())),strupr(day)) ? 1 : 0 )
  11.  
  12. if ErrorLevel 1 ECHO Yes, today is %1
  13. if not ErrorLevel 1 ECHO No, today is not %1
  14.